home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / circuits / spice2g6.z / spice2g6 / spice / Fortran / title.f < prev    next >
Encoding:
Text File  |  1989-02-03  |  2.5 KB  |  70 lines
  1.       subroutine title(ifold,len,icom,coment)
  2.       implicit double precision (a-h,o-z)
  3. c
  4. c     this routine writes a title on the output file.  ifold indicates
  5. c whether the page eject should be to the next concave, convex, or any
  6. c page fold depending on whether its value is <0, >0, or =0.  the page
  7. c eject is suppressed (as is much of the heading) if the variable nopage
  8. c is nonzero.
  9. c
  10. c spice version 2g.6  sccsid=tabinf 3/15/83
  11.       common /tabinf/ ielmnt,isbckt,nsbckt,iunsat,nunsat,itemps,numtem,
  12.      1   isens,nsens,ifour,nfour,ifield,icode,idelim,icolum,insize,
  13.      2   junode,lsbkpt,numbkp,iorder,jmnode,iur,iuc,ilc,ilr,numoff,isr,
  14.      3   nmoffc,iseq,iseq1,neqn,nodevs,ndiag,iswap,iequa,macins,lvnim1,
  15.      4   lx0,lvn,lynl,lyu,lyl,lx1,lx2,lx3,lx4,lx5,lx6,lx7,ld0,ld1,ltd,
  16.      5   imynl,imvn,lcvn,nsnod,nsmat,nsval,icnod,icmat,icval,
  17.      6   loutpt,lpol,lzer,irswpf,irswpr,icswpf,icswpr,irpt,jcpt,
  18.      7   irowno,jcolno,nttbr,nttar,lvntmp
  19. c spice version 2g.6  sccsid=miscel 3/15/83
  20.       common /miscel/ atime,aprog(3),adate,atitle(10),defl,defw,defad,
  21.      1  defas,rstats(50),iwidth,lwidth,nopage
  22. c spice version 2g.6  sccsid=status 3/15/83
  23.       common /status/ omega,time,delta,delold(7),ag(7),vt,xni,egfet,
  24.      1   xmu,sfactr,mode,modedc,icalc,initf,method,iord,maxord,noncon,
  25.      2   iterno,itemno,nosolv,modac,ipiv,ivmflg,ipostp,iscrch,iofile
  26. c spice version 2g.6  sccsid=blank 3/15/83
  27.       common /blank/ value(200000)
  28.       integer nodplc(64)
  29.       complex cvalue(32)
  30.       equivalence (value(1),nodplc(1),cvalue(1))
  31. c
  32. c
  33.       dimension coment(4)
  34. c
  35. c
  36.       if(nopage.eq.1) go to 150
  37. c
  38.    30 if (len.le.80) go to 100
  39.       write (iofile,31) adate,aprog,atime,(atitle(i),i=1,10)
  40.    31 format(1h1,16(1h*),a8,1x,24(1h*),3a8,24(1h*),a8,16(1h*),//1h0,
  41.      1   15a8/)
  42.       if (icom.eq.0) go to 40
  43.       write (iofile,36) coment,value(itemps+itemno)
  44.    36 format(5h0****,17x,4a8,21x,'temperature =',f9.3,' deg c'/)
  45.    40 write (iofile,41)
  46.    41 format(1h0,121(1h*)//)
  47.       go to 200
  48. c
  49. c
  50.   100 write (iofile,101) adate,aprog,atime,(atitle(i),i=1,10)
  51.   101 format(1h1,7(1h*),a8,1x,8(1h*),3a8,8(1h*),a8,5(1h*)//1h0,10a8/)
  52.       if (icom.eq.0) go to 110
  53.       write (iofile,106) coment,value(itemps+itemno)
  54.   106 format(10h0****     ,4a8,' temperature =',f9.3,' deg c'/)
  55.   110 write (iofile,111)
  56.   111 format(1h0,71(1h*)//)
  57.       go to 200
  58. c
  59. c
  60.   150 if (icom.eq.0) go to 160
  61.       write (iofile,106) coment,value(itemps+itemno)
  62.       go to 200
  63.   160 write (iofile,161) aprog
  64.   161 format(1h0,3a8,/)
  65. c
  66. c  finished
  67. c
  68.   200 return
  69.       end
  70.